home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0574.ZIP
/
PUTS.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-11-20
|
389b
|
25 lines
include compiler.inc
ttl PUTS, 1.05, 11-03-86 jwk
;put string to stdout followed by \n
dseg
extrn _ftb:byte
cseg
xtfs <fputs, putc>
procdef puts, <<bfr, ptr>>
pushreg
pushds
lea si,_ftb ;stdout stream
add si, 5
callit fputs <<si, preg, ds>, <bfr, ptr>>
mov ax, 10 ;send newline
callit putc, <<si, preg, ds>, <ax, reg>>
pret
pend puts
finish